home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Examples / DisplayDialog.as < prev    next >
Encoding:
Text File  |  1997-04-12  |  476 b   |  10 lines  |  [TEXT/ToyS]
  1. on DisplayDialog given icon:icn, message:msg
  2.     return dd auto dialog {size:[260, 130], contents:[¬
  3.         {class:push button, bounds:[190, 100, 250, 120], name:"OK"}, ¬
  4.         {class:push button, bounds:[110, 100, 170, 120], name:"Cancel"}, ¬
  5.         {class:static text, bounds:[65, 10, 250, 74], contents:msg}, ¬
  6.         {class:icon, bounds:[10, 10, 42, 42], contents:icn} ¬
  7.             ], name:"Alert", style:movable modal} --with greyscale
  8. end DisplayDialog
  9.  
  10. DisplayDialog given icon:0, message:"Testing!"